home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / copysavf.arc / CPYFSAVF.CMD < prev    next >
OS/2 REXX Batch file  |  1991-12-04  |  1KB  |  20 lines
  1.  CPYFRMSAVF: CMD        PROMPT('Copy from a save file')
  2.              /*         Command processing program is CPP3420 */
  3.              PARM       KWD(SAVF) TYPE(QUAL) MIN(1) PROMPT('Save file +
  4.                           name:')
  5.              PARM       KWD(FILE) TYPE(QUAL) MIN(1) PROMPT('Database +
  6.                           file to recieve SAVF:')
  7.              PARM       KWD(MBR) TYPE(*NAME) DFT(*SAVF) +
  8.                           SPCVAL((*SAVF)) EXPR(*YES) PROMPT('Member +
  9.                           name:')
  10.              PARM       KWD(CRTFILE) TYPE(*LGL) RSTD(*YES) DFT(*YES) +
  11.                           SPCVAL((*YES '1') (*NO '0')) EXPR(*YES) +
  12.                           PROMPT('Create the 528-byte data file:')
  13.              PARM       KWD(MBRDTA) TYPE(*LGL) RSTD(*YES) +
  14.                           DFT(*REPLACE) SPCVAL((*REPLACE '1') (*ADD +
  15.                           '0')) EXPR(*YES) PROMPT('Member data +
  16.                           option:')
  17.  QUAL:       QUAL       TYPE(*NAME) MIN(1) EXPR(*YES)
  18.              QUAL       TYPE(*NAME) MIN(1) EXPR(*YES) PROMPT('Library +
  19.                           name:')
  20.